Função Auxiliar de Formatação de Scripts

Este código formata um script de maneira que ele possa ser exibido numa página HTML.

O código exibido na página HTML poderá ser simplesmente copiado e colado num programa fonte de maneira que o interessado não tenha qualquer trabalho em utilizar o código apresentado.

Início

Private Sub btnConverter_Click(sender As Object, e As EventArgs) Handles btnConverter.Click
        Dim b As String

        txtTexto.Text = Clipboard.GetText()

        'removendo < e >
        txtTexto.Text = Replace(txtTexto.Text, "<", "<")
        txtTexto.Text = Replace(txtTexto.Text, ">", ">")


        'convertendo VBCRLF por <BR>VbCRLF
        txtTexto.Text = Replace(txtTexto.Text, vbCrLf, "<br />" + vbCrLf)

        'convertendo cada tab em 4 espaços
        txtTexto.Text = Replace(txtTexto.Text, vbTab, "    ")

        'convertendo cada caractere espaço à esquerda do string em  
        b = txtTexto.Text
        txtTexto.Text = Replace(txtTexto.Text, vbCrLf + " ", vbCrLf + " ")
        While b <> txtTexto.Text
            b = txtTexto.Text
            txtTexto.Text = Replace(txtTexto.Text, vbTab + " ", vbTab + " ")
        End While

        'convertendo cada caractere tab à esquerda do string em  
        b = txtTexto.Text
        txtTexto.Text = Replace(txtTexto.Text, vbCrLf + vbTab, vbCrLf + " ")
        While b <> txtTexto.Text
            b = txtTexto.Text
            txtTexto.Text = Replace(txtTexto.Text, " " + vbTab + " ", "  ")
        End While

        'convertendo cada caractere   espaço à esquerda do string em  
        b = txtTexto.Text
        txtTexto.Text = Replace(txtTexto.Text, " " + " ", "  ")
        While b <> txtTexto.Text
            b = txtTexto.Text
            txtTexto.Text = Replace(txtTexto.Text, " " + " ", "  ")
        End While

        Clipboard.SetText(txtTexto.Text)

    End Sub

Fim